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SATSSF16 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 AX/VMS Macro v04-00 Page 1 
vO4=000 ~SEP-1986 04:29:29 LOETPSY.SREISAYSeFio.mAR;1 O8® cfy, 
TITLE §ATSSE16 = SATS SYSTEM SERVICE TESTS (FAILING S.C.) | 

SIDENT *vo4-000" 


~MPARBAARAAAAASAALALALAAELEAAALE LEAL ALE LASALLE SARE SLES E ERAS REESE EEE EE EERE EET 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


a 
® 7 
& eB 
® & 
® ft 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
« N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* | 
« ION OF THE ABOVE T C SOF TWARE ANY OTHER ®* | 
. THEREOF MAY NOT SE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* 0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
* TRANSFERRED. ‘ | 
® on 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND, SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT  * 
® 
& + 
tt ® 
© + 
® * 
® * 
** ® 
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A 
CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARARAAAAAAALASALASAASALELEASALESA RSE SAAR SARE SALAS SAREE EERE ARERR RRR RRS SS 


~~ 


; FACILITY: SATS SYSTEM SERVICE TESTS 

ABSTRACT THE SATSSF16 MODULE TESTS THE i gp hh OF CERTAIN 
VMS SYSTER SERVICES, INVOKED IN SUCH A WAY AS TO EXPECT FAILING 
STATUS CODES. THE SYSTEM SERVICES TESTED AND THE STATUS CODES 
EXPECTED ARE SUMMARIZED AS te TO THE TESTSERV MACROS 
WHICH APPEAR NEAR THE END OF THIS LISTING. SUCCESSFUL STATUS 


CODES ARE TESTED IN OTHER MODULES. 


COOoOSoSCSCOCoOOCOOSSOSOSOSOSOSOSOSOSOSOSOOSOSOOOSOOOOSOOOOSOSOSoOO 
SOOoooooooooooooooooo oooo ooo OoOCooO 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 
ND 
) 


AUTHOR: THOMAS L. CAFARELLA CREATION DATE: MMM, 1978 
PAUL D. FAY (DISPSERV & TESTSERV MACROS 


MODIFIED BY: 


- + VERSION 
01 
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SATSSF16 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 00:43:54 VAX/VMS Macro V04-00 P 
9042000 DECLARATIONS ~SEP= 1382 82:53:35 YOEINES Bacco VOerOO any POM? Of, 
: .SBTTL DECLARATIONS 
4 3 INCLUDE FILES: 
: ‘ SPHDDEF : PROCESS HEADER OFFSET SYMBOLS 
0 SPCBDEF : PROCESS CONTROL BLOCK OFFSET SYMBS 
0 8 SSTSDEF + STATUS MESSAGE SYMBOLS 
00 SPRVDEF : SYMBOL DEFS FOR PRIVILEGES 
0 60 SUE TPDEF P MSG CODE DEFINITIONS 
0 61 SSHR_MESSAGES UETP,116,<<TEXT, info>>. 
00 6¢ ; DEFINE UETPS_TEXT 
900 63 : GET RID OF MACRO DEF INITIONS 
9000 65 : MACROS: 
00 66 ; 
0000 «67: 
9000 68 ; EQUATED SYMBOLS: 
00000000 9000 3 WARNING = 0 : WARNING SEVERITY VALUE FOR MSGS 
00000001 0000 71 SUCCESS = 1 + SUCCESS SEVERITY VALUE FOR MSGS 
00000002 0000 es ERROR = é : ERROR SEVERITY VALUE FOR MSG 
00000003 0000 #73 INFO 7 : INFORMATIONAL SEV VALUE FOR MSGS 
00000004 0000 7% SEVERE =4 : SEVERE (FATAL) SEV VALUE FOR MSGS 
00000000 0000 75 TCG_NO = 0 : INITIALIZE TEST CASE GROUP NUMBER 
00000000 0000 #76 GRP-TOTAL = 0 : INITIALIZE TEST CASE GROUP TOTAL 
00007F FF 0000 vr RO_THRU_SP = “M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP,FP,SP> 
0000 79 : OWN STORAGE: 
0000 +=s«80 :: 


SAT Serie - SA 
v04-000 DECL 
0000 
BFFC 


00000000' 
FFFFFFFF 


000000E3' 


00000000 
000000DF ° 


BDOOGVOOOO0OOOO0O0O0000 00000000000 00000000 
OONAUE WN © OD NAME WN | O ODNOUE UM 
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M SERVICE TESTS (FAILING S. 16-SEP-1984 90:3 +38 uathe 


1_FAO: 
COONTED_STR: 
P2 FAO: 
PRALST_FAL: 

SGBUF _SNE: 
MSGBUF _SNE10: 
MY_DISR: 


.PSECT 
REG_COMP_MASK: 


ST_MOD_NAME : 
ST“MOD “BEG 
ST~MOD~SUCC: 
ST“MOD "FAIL 
ST MOD_NAME 


$M 
“SEP=1984 04:29:29 (CUETPSY.S 

RODATA,RD,NOWRT ,NOEXE LONG 
.WORD  “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R1 

; REG COMPARE MAS 

a. are must BE 
STRING 1,<!/!AC!12B!12B: REGISTER '2UW C 
<; BEFORE SERVICE CALL: !8XL_ AFTER SER 
STRING (,<SATSSF 16> ; TEST MODULE NAM 
STRING C€,<begun> : DISPOSITION FIE 
STRING (€,<successful> ; DISPOSITION FIE 
STRING C,<failed> : DISPOSITION FIE 
STRING I.<SATSSF16> |: TEST MODULE NAM 
TRING 1,<TT> : TERMINAL LOGICA 
.LONG NOACCESS,NOACCESS ; PAGE ADDRESS 
-LONG PRTS$C_NA ; PROTECTION CODE 
“LONG -1,-1 + A QUADWORD OF 1- 

: CTRSTR ARGUMENT 

: CTRSTR ARGUMENT 
STRING I,<TEST: !AC> 

; CTRSTR ARGUMENT 

: CTRSTR ARGUMENT 


STRING I,<TEST: !BC> 
.ADDRESS COUNTED_STR ; P1 ARGUMENT FOR 
STRING C,<A VALID COUNTED STRING> 


» LONG 
eADDRESS P1_FAO ; PRMLST ARGUMENT 


>o Mm 


oo oOo 


; P2 ARGUMENT FOR FAO 
FOR FAOL 


P 
Rass "0 


NTS ALTERED>, - 
CALL: !8XL> 


EST MOD MSG 
EST MOD MSG 


MOD MSG 


am wo 


Cc 


~ 


STRING I,<SATSSF16 ERROR LOG BUFFER> ; MSGBUF ARG FOR SNDERR 


STRING 1,<SYS$DISK> 


; LOGICAL NAME FOR USER DISK 


K 16 
SATSSF16 S$ SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 AX/VMS Macro v06- Pa 
y04=000 DECLARATIONS Breer ehs Boisa:36 PORCHES Bacto VOG= 0 an:1 a0 
9009009 11 LPSECT RWDATA,RD WRT .NOEXE 
a 112 TPID: "BLKL 1 : PROCESS ID FOR THIS PROCESS 
4 118 CURRENT.TC:  ‘BLKL 1 : PTR TO CURRENT TEST CASE 
i 8 114 REG_SAVE AREA: “BLKL 15 : SAVE AREA FOR ALL REGS (SANS PC) 
074 44 119 MODTMSG CODE: [LONG UETPS_SATSMS : TEST MODULE MSG CODE FOR PUTMSG 
000004¢ 0048 116 CLOB REG NO: <BLKL I : CLOBBERED REG NO (FOR FAO ERR MSG) 
00000080 004¢ 117 REG.BEFORE SS: ‘BLKL 1 : REG CONTENTS BEFORE S.S. 
59118 : 1. (FOR FAO ERROR MSG) 
00000054 0050 119 REG_AFTER.SS: .BLKL 1 : RES CONTENTS AFTER SS. 
054 120 tr’ FOR FAO ERROR MSG) 
054 151 SSTSTNSS: STRING C.< SF >  ! ASCII PORTION OF TEST CASE NAME 
090006E 005° 184 TAN ADDR: “ADDRESS TEST MOD_NAME : ADDR OF TEST MOD NAME FOR FAO 
0000 £60 158 TMDTADDR: "ADDRESS TEST“MOD"BEG : ADDR OF T.M. DISP FIELD FOR FAO 
pad 0064 124 TS_EP: -BLKL 1 3; ENTRY PNT FOR CURR TESTSERV MACRO 
9000070 9068 125 RETADR: ; 2 : RETURN LONGWORDS FOR SETPRT 
90000071 0070 126 PRVPRT: "BLKB : PROT RETURN BYTE FOR SETPRT 
00000079 0071 157 PRIVMASK: “BLKQ ; ADDR OF PRIVILEGE MASK CIN PHD) 
0000007 0079 188 CHA, CONT: "BLKL 1 : CHANGE MODE CONTINUE ADDR 
00000091 007D 159 REGS: "BLKL 5 : AREA FOR COND INDEX’ REGS FARO) 
0091 130 OUTLEN_ FAO: ; OUTLEN ARGUMENT FOR F 
0091 131 OUTLENTFAL: : OUTLEN ARGUMENT FOR FAOL 
00000093 091 13¢ ‘BLKW 1 
0093 138 OUTBUF_FAO: : OUTBUF ARGUMENT FOR FAO 
0093 134 OUTBUF— FAL: ; OUTBUF ARGUMENT FOR FAOL 
0095 135 STRING 0,50 
00CD 136 OUTBUF_FAO30: : OUTBUF ARGUMENT FOR FAO 
00CD 137 OUTBUF7FAL30: : QUTBUF ARGUMENT FOR FAOL 
00CcD «138 STRING 0,1 


-ADDRESS EMPTY/*X100 ; ADDRESS OF ACCESSIBLE STRING 


+ 
#** NOTE -- a NOT CHANGE LOCATION OR SEQUENCE OF ABOVE ferrite 
eee THIS PSECT (NOACCESS) MUST APPEAR IN MEMORY Legg Ld hd 
ee FOLLOWING THE EMPTY PSECT. PSECT NAMES AND OPTIONS WILL BE 
eee CHOSEN TO FORCE THE DESIRED PSECT ORDERING. 
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v04=000 DECLARATIONS ore EE=19k6 05:39529 BY SREISAYSSFaG.mAR:1 2% (2) 
000 140 -PSECT ae oe 1,RD,WRT »NOEXE PAGE 
oo000266 1 EMPTY 4i9- ; RESERVE A PAGE OF SPACE 
143 ; + 
133 f RRKHeRe eee eeeteReeeeeeteeeeeeereeeeeeeeteeeteeeeKeeeeeeeKeeereeee 
145 ; * 
S 128 3; a THE ORDER OF STATEMENTS IN THIS PSECT 3 CRITICAL. * 
0 147; * DO NOT RE-ARRANGE THE VAR ee CONSULT SAT * 
0200 148; * FUNCTIONAL SPECIFICATION FOR A DESCRIPTION OF THE USE * 
8 88 133 3 @ OF THE EMPTY PSECT (AND ITS COMPANION PSECT, NOACCESS). + 
+ ® ® 
8 29 138 : RARER AR AAR TEER EEA AAE TREAT AEAAAAARERAAEAEAAAAAKAREKAAEEAEEE 
1 3 
00 155 3 
6 09 154 ; TYPE AAAAA =SSSK1 (TYPE AAAAA_SSSX2 IF NOT DESC) GO HERE: 
000001F3 0 155 1 ; ALLOW ROOM FOR STRING DESCRIPTOR 
OF 156 ; TYPE AAAAA ASSSi5_ 60 HERE: 
00000006 O1F 157 a 6 ; STRING LENGTH (WILL CROSS PSECT BOUNDARY) 
QOOO01FB" O1F7 158 DRESS .+4 ; STRING ADDRESS 
O1FB 159 ; TYPE AAAAA “sssis. gO HERE: 
QOOOOOIFC O1FB 160 ; LOW-ORDER BYTE OF STRING LENGTH 
Bice 161 ; TYPE AAAAA_SSSX GO HERE: 
00000200 OFC 136 -BLKL 1 ; STRING LENGTH 
0200 163; 
0200 164 ; 
0200 165 ; 
0200 166 
00000000 167 -PSECT SATS ghtCyis _2-RD,WRT, NOEXE , PAGE 
00000200 0000 168 NOACCESS: -BLKE als 3 sf aay A Pace OF SPACE 
000000 0200 169 - 51 ; RETURN LOC CTR TO bay ie OF PSECT 
00000000" 449 109 * ADDRESS EMPTY : ADDRESS OF ACCESSIBLE STRING 
$09 \7¢ 3 
00 17 
00 174; 
00 179 3 
00 178 : 
00 17 
bb 178 
, 179 
0 180 ; 
00 181 
00 Hf 
00 18 


fsoaur -SNE11: STRING I,<SFSNE11> ; MSGBUF ARGUMENT FOR SNDERR 


-PSECT SATSSF16,RD,WRT,EXE,LONG 
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- SATS SYSTEM SERVICE TESTS (FAILING S. Ig-SEB-1984 00:43:54 VAX/VMS Ma cro V04- 
SATSSF1 ~SEP-1984 04:29:29 LUETPSY. SRCISATSSF 
42 ; 
rt 3 NONE 
44: 
o03 347 
00 ‘8 SATSSF16: 
OFFC 09 30 .WORD “M<R2,R3,24,R5,R6,R7,R8, Rd h10, RID 
000 3¢ SWAKE_S TPID ; ent PID OF THIS PROCESS 
or 5 $HIB + UNDO WAK 
18 54 SSETPRN_S TEST _MOD_NAME_D ; SET PROCESS NAME 
30 00 55 BSBW “HOD TM MSG_PRINT ; PRINT TEST MODULE BEG GIN | 
DE 00 8 56 MOVAL TEST_MOD SUCC,TMD ADDR ASSUME END MSG WILL SHOW ie CCESS 
FO 00 57 INSV ait crESSi 9 Wi} mon 6_cbnE ; ADJUST STATUS COE FOR SUCCESS 
03¢ 38 MODE S rhe NOREG ; KERN NEL MODE TO ACCESS PHD 
d0 0059 «= 25 MOVL weer Set PHO’ RI T PR Ocess HEADER ADDRESS 
9069 60 MOVAL enbSa PRIVMSK CRS). porn h GET PRIV MASK ADDRESS 
06 61 MODE FROM,TOS > GET BACK TO US 
0068 6¢ PRIV_— ADD, ALL : GET ALL PRIVILEGES 
0088 26 DISPSERV SET UP DISPLAY INFO FOR TESTSERV 
021D 264 SSETPRT_S INADR= INADR, RETADR= “RE; ASE - 
021D 265 PROT=PROT, PRVPRT=PRVPRT 
023 66 ; SET NOACCESS PSECT ... 
O23E 26 ; OR NO USER ACCESS 
Oost 68 BRW EXECUTE : GO EXECUTE ALL TEST CASES 
024 370 TC_GROUP FAO,1,TS1 
0268 272 NEXT_TEST_CASE SFFAO10 


4-00 Pp A 
16.MAR:1 A 0 
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T3 3 
fe g Leguaeeaebeseebbeseesberenenenenvhsentsueaeinneubens 
3 ® 
6 7 ; * TEST CASE NAME: SFFAO10 
6 hi : * SYSTEM SERVICE: FAO 
6 1 ; * ARGUMENT UNDER TEST: CTRSTR_FAO10 
é § : * INPUT CONDITIONS: 
6 4 ;* INVALID DIRECTIVE IN FAO CONTROL STRING 
026 Bs : * EXPECTED RESULTS: 
6 87 ; * 1) SYSTEM STATUS CODE: BADPARAM 
6 8 2. 2) REGISTERS R2 THROUGH FP UNCHANGED 
026 90 : RARER AAA AERA AAA EAA EAE REA EE RAAT E RAKE 
0268 91 3-- 
ce 
0268 $34 . NEXT_TEST_CASE SFFAO30 


.. 
SATSSF16 = SATS SYSTEM SERVICE TESTS (FAILING S. 16=SEP-1 AX/VMS Macro V04 my Page 9 
v04-000 SFFAOS on Epa| 382 bg 33; 33 UETPSY.S RCIS SATSSF16.MAR; 1 . (1) 


4 
i " pedieeesenebessecadsuebensesbiebaesecdsansbebenseestnen 
7 TEST CASE NAME: SFFAO30 
SYSTEM SERVICE: FAO 
ARGUMENT UNDER TEST: OUTBUF _F A030 


INPUT CONDITIONS: 
OUTPUT BUFFER waste 1) TOO SHORT FOR 
INCOMING DATA 


exPet TED RESU Lt 
) SYSTEM STA Tus CODE: BUFFEROVF 
2) REGISTERS Ro THROUGH FP UNCHANGED 
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0 H : TC_GROUP FAL,1,TS2 
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f 3 NEXT_TEST_CASE SFFAL10 
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-SEP=1 UETPSY 1) 04 
-ARRRRASALASALALSALASASLS SESE EELS SEES ESE EASES EECA E aS 
® 
TEST CASE NAME: SFFAL10 
SYSTEM SERVICE: FAOL 
ARGUMENT UNDER TEST: CTRSTR_FAL10 


INPUT CONDITIONS: 
INVALID DIRECTIVE IN FAO CONTROL STRING 


EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: BADPARAM 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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NEXT_TEST_CASE SFFAL30 
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. TEST CASE NAME: SFFAL30 

“ SYSTEM SERVICE: FAOL 

ARGUMENT UNDER TEST: OUTBUF _FAL30 

* INPUT CONDITIONS: 

® OUTPUT BUFFER raged 1) TOO SHORT FOR 
: INCOMING DATA 

* EXPECTED RESULTS: 

* SYSTEM STATUS CODE: BUFFEROVF 

: 2) REGISTERS R2 THROUGH FP UNCHANGED 
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‘° 67 ; 
~ ° TC_GROUP SNE,1,7S3 
8 5 NEXT_TEST_CASE SFSNE10 
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D 71 ; 
. i a puohebndebeneeheveedeegnebbeheuabeaetdareniannessoenel 
D 4; 
p 13 ; * TEST CASE NAME: SF SNE10 
p ” : * SYSTEM SERVICE: SNDERR 
p 8 : * ARGUMENT UNDER TEST: MSGBUF _SNE10 
D ? : INPUT CONDITION NS: 
D é ; R DOES NOT HAVE THE PRIVILEGE TO SEND A 
p 7% SAE SSAGE TO THE ERROR LOGGER. 
§ D és : * EXPECTED RESULTS: 
0 D t ; 1) SYSTEM STATUS CODE: NOPRIV 
4 tf : . 2) REGISTERS R2 THROUGH FP UNCHANGED 
8 D 89 : pARRBRAAAAAAAALAAZALLALALALALLAELLESESL ELSES EE EERE SESE ESE ESS 
B88) 
0 D6 3¢ ; PRIV _—_— REM, BUGCHK ; REMOVE BUGCHK PRIVILEGE 
02F0 490394 * NEXT_TEST_CASE SFSNE11 
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ae 
fe $3 : RRA RAAAARAAAAAAAZALALLALALSLALESES ESET ES ESET ESE EEE EES 
; ® 
FC 35 ; * TEST CASE NAME: SFSNE11 
FC 4 ? ; * SYSTEM SERVICE: SN’ ERR 
re 4 5 ; * ARGUMENT UNDER TEST: MSGBUF_SNE11 
FC 405 : * INPUT CONDITIONS: 
FC 406 ; * MESSAGE BUFFER DESCRIPTOR IN NON-ACCESSIBLE PSECT. 
oc 4 8 t * EXPECTED RESULTS: 
FC 409: ®t 1) SYSTEM STATUS CODE: ACCVIO 
4: rt ; . 2) REGISTERS R2 THROUGH FP UNCHANGED 
" 4: tig : PARRAASAALASALALALALALALALLESL ESE LESSEE SES EE EEE REESE EEE 
FE 418 
0 FC 419 PRIV ADD, BUGCHK ; RE-ACQUIRE PRIVILEGE REMOVED BY SFSNE10 
1¢ “19 : TCEND 
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1D 418 TS1: 

1p 4 TESTSERV FAO,ERR,SATS, ~ 

0 4 <1,CTRSTR_FAO - 
1p 4 é CTRSTR_FAO10,BADPARAM, = ; SFFAO10 

1D 434 ‘ . 
1D 425 <1,QUTLEN_FAO, - 
1D 43 * ; 
1D 4 : <1,0UTBUF _F AO - 
1D 4 OUTBUF_FAO30,BUFFEROVF, - ; SFFAO30 

1D 431 se ; 
iD 4 g <1,P1_FAO, - 

1p 434 ie . 
1D 435 <1,P2_FAO, - 

1D 4 6 >, - 
1D 43 

2A «438 
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TS_CLEANUP ; CLEAN UP & RETURN TO TEST_SERV_EXEC 
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TS2: 
TESTSERV FAOL,ERR,SATS, o 
<1,CTRSTR_FAL 


ETRSTR_FAL10,BADPARAM, = ; SFFAL10 


<1,QOUTLEN_FAL, 
>, 


<1,OUTBUF _FAL 
OUTBUF _FAL30,BUFFEROVF, - 3 SFFAL30 


<1,PRMLST_FAL, 


>, 
TS_CLEANUP ; CLEAN UP & RETURN TO TEST_SERV_EXEC 
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DE 457 TS3: 
44 : 8 TESTSERV SNDERR,ERR,SATS, - 
8DE 460 <1,MSGBUF _SNE, - 
t43 461 MSGBUF _SNE10,NOPRIV, - ; SFSNE10 
8DE rhe) MSGBUF _SNE11,ACCVIO, - ; SFSNE11 
O8DE 46 >, - 
43 age 
Q9A 465 TS_CLEANUP ; CLEAN UP @ RETURN TO TEST_SERV_EXEC 
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9(9 467 EXECUTE: 
¢ fi Saas TEST_SERV_EXEC : EXECUTE ALL T. CASES IN ALL GROUPS 
0138 30 O9E7 470 BSBW § MOD_MSG_ PRINT PRINT TEST MODULE END MSG 
01 1¢ O01 FO O9EA 471 INSV #1, BSTSSV_INHIB_MSG,#1, nop MSG_C 
O9F 3 47g : IN Chae BRIN TING 
O9F 138 SEXIT_S MOD_MSG_CODE : EXIT TO OP Sys WITH MSG CODE 
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CLEANUP MACRO) 


P. TC_ CONTROL USES A 


; 0,1,2) IS SET TO ERROR 


V MACRO MAY BE VIEWED AS 
BIT 
ASE IN THE CURRENT GROUP FAILS; OTHERWISE IT REMAINS 


RV ACT AS CO-ROUTINES. 


aw 


¥ ri by ts THE TEST SERV 
T 
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(ISSUED 
(RSB IS ISSUED WITHIN TRE TS 
T 
THE TESTSERV MACRO (CO-ROUTINE WITH TC_CONTROL) 


ERROR MESSAGES ARE WRITTEN TO SYSSOUTPUT BY 


FIELD OF MOD_MSG_CODE ( 
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3 
OR E 
N 
0 
ARGU 
BY A 
NE I 
Pp 
ME | 
?, ¥ 
~ E 
E 
DIRE 
S SE 
ENTE 
E DO 
CALLING SEQUENCE: 
BSBW TC_CONTROL 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
ARGUMENTS 
INPUTS, SI 
OUTPUT PARAMETERS: 
VE 
A 
T 
IMPLICIT OUTPUTS: 
RUETP=I-TEXT, 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
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Sous800° SUBROUTINES SEP=1984 9:53: 3§ UETPSY.SREISAT SSF16.MAR; 1 24 | 
Aa} .SBTTL SUBROUTINES 
Aa} REG_SAVE : 
eve 8 gana a ei Ni cen Sgr abet rt ie | ef 
ve é¢ * SAVES RO THRU SP IN REG_SAVE_AREA ‘ i 
ve} 86 i clseesindilieviatdiniiiaiaesasteisiomeadiehtdemaiis i attalidiaaakeh Natensa hae a 7% 
AGl 564 o 
; SAVE ALL REGS ON STACK 
"EF rrFe f Aes o2 moves Hi nti “Res. SAVE_AREA : SAVE REGS (BEFORE S.S.) 41 
es 7FFF BF BA OA4D $ POPR = #RO.T : CLEAN UP STACK 
“4 BS AS} a4 RSB t .... AND RETURN %. 
bass 390 | 20 
Ons ae 38 
AS rg REG REST: 
AS 7% ; 72 
BAe 2 ee ee ee ee gf 
Bag aes * RESTORES RO THRU SP FROM REG_SAVE_AREA : 9 
pA? 4 ; EIEN PET SA Ee ON cl IMT SAE LET A LEE cele 
Ae 28) ; : AKE ROOM FOR REGS 73 
SE 3C C2 OAS2 58 SUBL2  4#60,S ; MOVE SP TO MAK ROOM FOR REG 
6E O0000008'EF 3c ss 0a5 38s move #60, “REG, SAVE. AREA, (SP) MOVE REGS 0 nes ACK FOR POP a 
7FFF BF BA OASD 584 0 ORE ALL R 
05 OA61 585 RSB re z 
61 
63 
63 
69 
65 
64 
7% 
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$042000 SUBROUTINES gr eeerib8e Beisaias FO THeS Sacre VOseOO ., Page 23, 
i 7 REG_COMP: 
rvs : : tARRAAAAAAAAALALALALELELELELESESE SELES ES EEE EEE EE TCE RAGS 
A Se a 
Ab 91: * 1) PUSHES ALL REGS ONTO STACK * 
A 36 : * 2) COMPARES REGISTER IMAGES FROM STACK WITH CORRESPONDING * 
A 93: « IMAGES FROM REG SAVE_AREA FOR ALL REGISTERS SPECIFIED * | 
Ab 34 ; of IN REG_COMP_MASR. * 
Ab 5; * 3) FOR EACH “YNEQOAL L COMPARE, AN ERROR MESSAGE IS PRINTED * | 
aoe 396; (USING sourPut SYSTEM SERVICES). . 
AG 3 : * 4) POPS ALL REGS ore OF STAC * 
bd ® coe 
A 85 : PRRRARBAAASAALALALALALALLALALASSEESESASLESSLASASAS LAS ELA SEES EEE ELAS EL aaa 
A6 600 ; 
7FFF 8F Ab 601 PUSHR #RO_THRU_SP > SAVE Abs REGISTERS ON STACK 
56 QO000008'EF DE OA66 6 : MOVAL REG” SAVES “AREA, R6 ; POINT R6 TO BEG OF 53 
A6D = 60 REGS (BEFORE S.S.) 
54 SE DO OA6D 604 MOVL SP, RG : POINT R4 10. BEG OF 
A 605 + see REGS (AFTER S.S.) 
53 FF 8F 98 OA70 606 CVTBL #=1,R3 : INITIALIZE REG_COMP_MASK INDEX 
A74 607 REG_COMP_NEXT: 
53 D6 OA74 608 INCL RS ; POINT TO NEXT BIT IN MASK 
53 OF 91 OA76 609 CMPB «#15, R3 : END OF THE MASK ? 
03 1A OA79 610 BGTRU REG’ COMP_CONT + NO == CONTINUE 
009F 31 OA7B 611 BRw REG-COMP~RSB > YES == GO TO COMMON RETURN 
! A7E 61g REG_COMP_CONT: 
84 86 ODI are 61 CMPL (RG) ght ; REG BEFORE = REG AFTER ? 
Fl 13 OA 614 BEQLU REG COM YES == LOOK FOR NEXT REG 
E9 OOOOOD00'EF 53 £1 OAB3 615 BBC REG_ COME XMASK, REG_ come _NEXT 
OA8B 616 :7NO == GET NEXT IF BIT NOT SET 
90000048 "EF 53 0 Age 61 MOVL  R3,CLOB_R : NO == GIVE afte NUMBER TO FAO 
0000004¢' F CAB DO OA92 618 MOVL RP URED RES “BEFORE SS : GIVE "BEFORE CONTENTS 0. FAO 
00000050' CAS DO OASA 619 MOVL =-4(R4).REG-AFTER SS ; GIVE “AFTER CONTENTS TO FAO 
000000 6! er’ 2A 90 ~ ¢ 9 MOVB #*A/*/,$$T SotNSSe2 3; GIVE FAILURE INDIC'N IN ERROR MSG 
AA é : SFAO_S ERR_MSG_FAOCTL,OUTL,OUTD,SSSNADS$, - 
AA 6 3 SSASEQSS, S$SPSEQSS, CLOB_REG_NO, REG. BEFORE_SS,REG_AFTER_SS 
F631 CF FSFB CF BO GAD 625 MOVW ; ACTUAL OUTPUT LEN IN STRING DESC'R 
AES 626 PUTMSG CyuETPS. PEXT, #1,#OUTD> ; PRINT THE 
F615 CF 9084 ef BO OAFB 627 MOVW TE-O0TB,OUTD ; GET MAX LEN BACK INTO DESCRIPTOR 
00000056' 90 OAFF 628 MOVB #*A/ /, S$TSTNS$+2 ; REMOVE FAIL INDIC'N FOR NEXT MSG 
00000060' EF "90000088: EF OD 06 629 MOVAL  TEST_MOD FALL ,TMD_ADDR : INDICATE FAILED IN END MSG | 
00000044 "EF F 11 6 0 INSV FERROR #043, M0D_ASG CODE ; JUST STATUS CODE FOR ERROR 
FF a 1A BRW REG_COMP_NEXf ; io” abe FOR NEXT REG TO COMPARE 
1D 6 : REG_COMP_RSB: | 
7FFF 8F BA 81D 63 POPR #0. THRU. SP > CLEAN UP STACK 
5 0B21 634 RSB : RETURN TO CALLER 
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MOD_MSG_PRINT: 


EMMRTN: 


LARRRAAAAAARALALASALALALALL ALESSI ELE SEES SEES REESE EEE CESS Raa 
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® 
PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES - 


(USING THE PUTMSG MACRO). 


LARRRARARAAARSLEAASALALALE ASSESSES ELE ESAS ESE EEE EERSTE EE EET ERE ES 


PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
RSB tees AND RETURN TO CALLER 


LARSRAASAASAAAALALEALASAAALASESE ELAS ALES ESE SERRE SERRE REE ESS So 


ae eee 


CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER 
A CMKRNL CHEXEC OR CMSUP SYSTEM SERVICE Is ISSUED 

BY THE MODE MACRO ('TO’ OPTION). IT MERELY DOES 

A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS 

THE EFFECT OF RETURNING TO THE END OF THE MODE 
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SUBROUTINES 


/ o38 : ° MACRO EXPANSION. 
E 8 : LARRARAARASAASASLALALALALALEESELES EES EEE EEE ESSEC ESE CECE R EEE EERE aS 
00000079' FF 0099 ‘ ee} in Sun CONT ; SE TURN To MODE MACRO IN NEW MODE 
4 6 ‘ 3 = : 
rb geé * RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ...." MACRO 
666 END SATSSF16 
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SSACTS 


RSTR_FAO 
CTRSTR-FAO10 
CURRENT_TC 
EMPTY 
ERROR 
ERR_MSG_FAOCTL 
EAP TOTAL 
INABR 


INFO 
LIBSSIGNAL 
MEXIT 


MOD_MSG_CODE 
MOD-MSG~ PRINT 


OUTBUF _F AL 
OUTBUF FAL 30 
OUTBUF ~F AO 
OUTBUF ~F A030 
OUTD 

OUTE 
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OUTLEN_FAL 
OUTLENTF AO 
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P1_FAO 
P2-FAG 
PHOSQ_PRIVMSK 
PRIVMASK 
PRIV_ARGS 
PRML ST. FAL 
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RIV 
SV_INHIB_MSG 
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eereeene 
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Symbol table 


! Psect synopsis ! 


Geoeeeeoeeceeooesoecen} 


TS 4A R 6 
TS oF ® 
TS_EP 3 R 

TTRAME FR 
betre _SATSMS ca 

UETPS" TEXT = 0074 83 
UARNIRG = 000000 
PSECT name Allocation 
. ° 00060000 ( ) 
SABSS$ 4 444 ( an 
RODATA 00001 ( 307.) 
RWDATA 44 4h ( 214.) 
SATS_ACCVIO_1 00 $8 ( 1-3 
SATS ACCVIO_2 00000200 (¢ 512.) 
SATSSF16 00000846 ( 2886.) 

+ 

Phase Page faults CPU Time 
Initialization 3 Q: 899-06 
Command processing 11 3: 0:15:2 
Pass 1 39 :00:15.21 
Symbol table sort 0: 8: is g 
~ - a, table output "Ne 6; 0: 368 

m able outpu :00:00. 
Peect sunsets eutout : 0: 3: 0:03 
Cross-reference output 8 0:00: 92 
Assembler run totals 69 0:00:20. 


The working set Limit was 1500 pages. 
g0718 ) 


666 source Lines were read in Pass 1, producing 


$eoeccecceccccoe 


Macro Library name Macros defined 


“B35 S80uase: F3YS-OB)9L 18: ALB -MLB; ! 


$2558) 
SS$DUA SYSLIB STARLET. Fae; 2 


Tovaie (all Libraries) 
1216 GETS were required to define 39 macros. 
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Attributes 

NOPIC USR 
NOPIC USR 
NOPIC USR 
NOPIC USR 
NOPIC USR 
NOPIC  USR 
NOPIC  USR 
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bytes (158 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 601 non-local and 169 local symbols. 
object records in Pass 
61 pages of virtual memory were used to define 45 macros. 
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NOSHR NOEXE NORD 
NOSHR EXE RD 
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There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSF16/0BJ=OBJ$:SATSSF16 MSRC$:SATSSF16/UPDATE=(ENHS: SATSSF 16) +EXECML$/LIB+SHRLIB$:UETP/LIB 


PMENT CORPORATION 


BT13A-SE 
AND PROPRIETARY 
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0471 Vax7vMS v4.0. 
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